Imports Microsoft.VisualBasic

Public Class Space
    Private CurrentSpace As Integer = 0

    Public Sub Inc()
        CurrentSpace = CurrentSpace + 1
    End Sub

    Public Sub Dec()
        If CurrentSpace > 0 Then
            CurrentSpace = CurrentSpace - 1
        Else

        End If
    End Sub

    Public Sub New()

    End Sub

    Public Sub New(ByVal spaces As Integer)
        CurrentSpace = spaces
    End Sub

    Public Overrides Function ToString() As String
        Return Microsoft.VisualBasic.Space(4 * CurrentSpace)
    End Function

End Class
